﻿'Clinciu Andrei
Option Strict On

Imports System.Collections.Generic
'This class can be used for both GiftList products and OrderList products aswell
Public Class OrderGiftListProd

    Private _product As String
    Private _prodId, _totalOrdered, _maxOrdered, _listId As Integer

    Public Sub New(ByVal product As String, ByVal prodId As Integer, ByVal listId As Integer, ByVal maxOrdered As Integer, Optional ByVal totalOrdered As Integer = 0)
        _product = product
        _totalOrdered = totalOrdered
        _maxOrdered = maxOrdered
        _listId = listId
        _prodId = prodId
    End Sub
    Public Property TotalOrdered As Integer
        Get
            Return _totalOrdered
        End Get
        Set(ByVal value As Integer)
            _totalOrdered = value
        End Set
    End Property
    Public ReadOnly Property MaxOrdered As Integer
        Get
            Return _maxOrdered
        End Get
    End Property
    Public ReadOnly Property ListId As Integer
        Get
            Return _listId
        End Get
    End Property
    Public ReadOnly Property ProdId As Integer
        Get
            Return _prodId
        End Get
    End Property
    Public ReadOnly Property Product As String
        Get
            Return _product
        End Get
    End Property

    Public Overrides Function toString() As String
        Return _product
    End Function
End Class
